# Copyright (c) 2007-2009 Google Inc.
# Copyright (c) 2006-2007 Jaiku Ltd.
# Copyright (c) 2002-2006 Mika Raento and Renaud Petit
#
# This software is licensed at your choice under either 1 or 2 below.
#
# 1. Perl (Artistic) License
#
# This library is free software; you can redistribute it and/or modify it
# under the same terms as Perl itself.
#
# 2. Gnu General Public license 2.0
#
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License
# as published by the Free Software Foundation; either version 2
# of the License, or (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
#
#
# This file is part of the JaikuEngine mobile frontend.

#

use strict;
use Test::More tests => 3;
use URI;

use Jaiku::API;
use lib 't/lib';
use API;

my $api = API::make();

my $expected_url =
    'http://localhost:8080/api/json?method=actor_get&nick=popular&' .
    'oauth_consumer_key=ROOT_CONSUMER_KEY&oauth_nonce=hsu94j3884jdopsx&' .
    'oauth_signature=PQFCBFpMv8kLXg8Xd0Y63Mu7NZY%3D&oauth_signature_method=' .
    'HMAC-SHA1&oauth_timestamp=1216860859&oauth_token=ROOT_TOKEN_KEY&' .
    'oauth_version=1.0';
my $request = $api->request_from_method_and_parameters(
    "GET",
    use_json_params => 0,
    timestamp => '1216860859',
    _nonce => 'hsu94j3884jdopsx',
    method => 'actor_get',
    nick => 'popular');

is($request->uri()->as_string(), $expected_url);

$request = $api->request_from_method_and_parameters(
    "POST",
    use_json_params => 0,
    timestamp => '1216860860',
    _nonce => 'hsu94j3884jdopsz',
    method => 'actor_get',
    nick => 'popular');

$expected_url = 'http://localhost:8080/api/json';
my $expected_body =
    'method=actor_get&nick=popular&oauth_consumer_key=ROOT_CONSUMER_KEY&oauth_nonce=hsu94j3884jdopsz&oauth_signature=fuV%2F2KyCGtDaotfDNRDTSN9RAMo%3D&oauth_signature_method=HMAC-SHA1&oauth_timestamp=1216860860&oauth_token=ROOT_TOKEN_KEY&oauth_version=1.0';
is($request->uri()->as_string(), $expected_url);
is($request->content(), $expected_body);
